perm filename SEGUSE.SAI[PIC,HE]1 blob sn#419575 filedate 1979-02-22 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	begin  "seguse"
C00007 ENDMK
CāŠ—;
begin  "seguse"

  require  "<babu>define.sai"  source!file;
  require  "<babu>ps.dcl"  source!file;
  require  "<babu>seg.dcl"  source!file;
  require  "<babu>sseg.dcl"  source!file;
  
  internal  string  picture;
  string  s;  boolean  yes, exit;
  integer  task;

  simple  procedure  menu;
  begin
    print(" The following tasks can be performed by this program.",crlf);
    print("  0. Print menu.",crlf);
    print("  1. Make .seg and .sseg files.",crlf);
    print("  2. Exit gracefully.",crlf);
    Print("  4. Type .seg data for individual segments.",crlf);
    PRINT("  5. Test a procedure on seg files.",crlf);
    print("  6. Displays segs as a picture.",crlf);
    print("  7. Filter out short segments from .seg file.",crlf);
    print("  8. List all seg  data.",crlf);
    print("  9. Display id's of segments in a window.",crlf);
    print(" 10. Gather statistics on .seg file.",crlf);
  end;

  globinit;

  exit := false;  menu;  task := 0;
  while  not  exit  do
  begin
    do  begin
      iprmpt(" Task to be performed",task);
    end  until  (0 <= task <= 10);
    if  not(task = 0 or task = 2)  then
      sprmpt(" Picture",picture);
    case  task  of
    begin
    [0]   menu;
    [1]   begin
            psinit;  sgwtopen;  ssgwtopen;
            pstoseg;  wsghdr;  wssghdr;
            sgclose;  ssgwclose;
          end;
    [2]   begin
            exit := true;
          end;
    [3]   begin
            print(" Caught you napping !! ",crlf);
          end;
    [4]   begin
            external  simple  procedure  segstty;
            sgrdopen;
            segstty;
            sgclose;
          end;
    [5]   begin
            external  simple  procedure  segtst;
            sgrdopen;
            segtst;
            sgclose;
          end;
    [6]   begin
            sgrdopen;  segpicsize;  segzoom;  sgclose;
          end;
    [7]   begin
            msec := ertime;
            sgrdopen;  filter;  sgclose;
            print(" Time for filtering: ",ertime," msec.",crlf);
          end;
    [8]   begin
          external  simple  procedure  sdata;
          sgrdopen;  sdata;  sgclose;
          end;
    [9]   begin
          external  simple  procedure  sidisp;
            sgrdopen;  sidisp;  sgclose;
          end;
    [10]  begin
          external  simple  procedure  sgtest;
            sgrdopen;  ssgrdopen;
            sgtest;
            sgclose;  ssgrclose;
          end
    end;
  end;
  psfree;
end  "seguse"